From 1f984be565fbf8f8a8a438d31f35c51902b4be48 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Thu, 13 Jun 2002 09:28:35 +0000 Subject: [PATCH] (comint-mode): Don't set `font-lock-defaults'. (comint-mode-hook): Turn on font-lock by default. --- lisp/comint.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/comint.el b/lisp/comint.el index 9d31e975789..ea06ab4ac5f 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -384,7 +384,7 @@ field boundaries in a natural way)." :type 'boolean :group 'comint) -(defcustom comint-mode-hook '() +(defcustom comint-mode-hook '(turn-on-font-lock) "Called upon entry into `comint-mode' This is run before the process is cranked up." :type 'hook @@ -507,8 +507,6 @@ Entry to this mode runs the hooks on `comint-mode-hook'." (make-local-variable 'comint-file-name-chars) (make-local-variable 'comint-file-name-quote-list) (set (make-local-variable 'comint-accum-marker) (make-marker)) - (set (make-local-variable 'font-lock-defaults) - '(nil t nil nil nil (font-lock-core-only . t))) ;; This behavior is not useful in comint buffers, and is annoying (set (make-local-variable 'next-line-add-newlines) nil)) -- 2.30.2